% routine inputimpedance.m
% calculates input impedance of the arterial load model

compZWK4;
axes(HandleAxesZin);
semilogy(freq(1:20),abs(Ztheor(1:20)),'r*',freq(1:20),abs(Ztheor(1:20)),'r');
set(HandleAxesZin,'NextPlot','add');
xlabel('frequency (Hz)');
ylabel('Zin');
set(HandleAxesZin,'XLim',[0 freq(10)]);
set(HandleAxesZin,'Tag','AxesZin');
